home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / SaveNoteText{note,fname} < prev    next >
Encoding:
Text File  |  1990-09-23  |  312 b   |  16 lines
  1. /* SaveNoteText (note, fname)
  2.  
  3.    Create a file of the given name containing the text of the note.
  4. */
  5.  
  6. call beginprompt('Working...')
  7.  
  8. type = gettype(arg(1))
  9.  
  10. if type ~= 'Note' & type ~= 'Button' then do
  11.    say 'Object must be a note or button'
  12.    exit
  13.    end
  14.  
  15. call savetext(arg(2), readnotetext(arg(1), 0, -1))
  16.